program cronometro

symbol lcdclear = lcd_cmd(lcd_clear)


dim ore as byte 'definisce ore
dim minuti as byte 'definisce minuti
dim secondi as byte 'definisce  secondi
dim decimi as byte 'definisce  decimi

dim ore_decine as byte 'conteggio ore decimali
dim ore_unita as byte 'conteggio ore unita
dim minuti_decine as byte 'conteggio minuti decimimali
dim minuti_unita as byte 'conteggio minuti unita
dim secondi_decine as byte 'conteggio secondi decimimali
dim secondi_unita as byte 'conteggio secondi unita

dim conta as byte


main:
trisa=%00011
trisb=%0000011
portb=0
lcd_init(portb)
lcdclear
lcd_cmd(lcd_cursor_off)
inizio:
crono:
          lcdclear
          conta=0
          for ore=0 to 23
          for minuti=0 to 59
          for secondi=0 to 59
          for decimi=0 to 9
          ore_decine=ore/10
          ore_unita=ore-(ore_decine*10)

          minuti_decine=minuti/10
          minuti_unita=minuti-(minuti_decine*10)

          secondi_decine=secondi/10
          secondi_unita=secondi-(secondi_decine*10)


          lcd_chr(1,5,ore_decine+48)
          lcd_chr(1,6,ore_unita+48)

          lcd_chr(1,7,":")

          lcd_chr(1,8,minuti_decine+48)
          lcd_chr(2,1,minuti_unita+48)

          lcd_chr(2,2,":")

          lcd_chr(2,3,secondi_decine+48)
          lcd_chr(2,4,secondi_unita+48)

          lcd_chr(2,5,":")

          lcd_chr(2,6,decimi+48)


          delay_us(42000)


          if porta.0=1 then  'Stop
          conta=0
          end if
          
          while conta=0
          if porta.1=1 then  'Star
          conta=1
          end if

            if porta.0=1 then  'Reset
               delay_ms(500)
                if porta.0=1 then
                  goto inizio
                end if
          end if

          wend

          next decimi
          next secondi
          next minuti
          next ore
goto inizio



end.